home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / hdf / unix / examples.lha / examples / ann / getSDSlblstF.f < prev    next >
Encoding:
Text File  |  1991-10-08  |  1.2 KB  |  52 lines
  1. C
  2. C $Header: /pita/work/HDF/dev/RCS/test/annotations/getSDSlablistF.f,v 1.1 90/06/26 16:39:39 mfolk beta $
  3. C
  4. C $Log:    getSDSlablistF.f,v $
  5. c Revision 1.1  90/06/26  16:39:39  mfolk
  6. c Initial revision
  7. c 
  8. C
  9.  
  10.       program getlablist
  11.  
  12. C Program to test getlablist routine
  13. C
  14. C Mike Folk  6/26/90
  15. C
  16. C****||************************************************************
  17.  
  18.       integer dallist
  19.       integer i, nlabels, startpos
  20.       integer reflist(20)
  21.       integer DFTAG_SDG, LISTSIZE, MAXLEN
  22.       character*20  filename
  23.       character*15  labellist(20)
  24.     
  25.       parameter (DFTAG_SDG   = 700,
  26.      *           LISTSIZE    =  20,
  27.      *           MAXLEN      =  15)
  28.  
  29. C The test file being used is o2.  Substitute another if you like.
  30. C This HDF file should contain some labels for SDSs.
  31.  
  32.       filename = 'o2'
  33.  
  34.       startpos = 1
  35.       
  36.       print *, 'Labels of scientific data sets in ', filename
  37.       nlabels = dallist(filename,DFTAG_SDG, reflist,
  38.      *                         labellist, LISTSIZE, MAXLEN, startpos) 
  39.  
  40.       do 100 i=1,nlabels
  41.           print *,'  Ref number: ',reflist(i),'  Label: ',labellist(i)
  42.   100 continue
  43.  
  44.       print *
  45.       print *
  46.       print *, '+++++++++++++++++++++++++'
  47.       print *
  48.       print *
  49.       stop
  50.       end
  51.  
  52.